   1 .{-128}{-57}{-38}{-78}{-84}{-128}{-38}{-103}{-89}{-128}{-38}{-103}{-93}{-68}{-128}{-103}{-99}{-68}{-128}{-103}{-95}{-128}{-128}{-103}{-75}{-61}{-95}{-103}{-75}{-61}{-102}{-103}{-99}{-128}{-128}{-103}{-99}{-68}{-57}{-103}{-106}{-68}{-57}{-103}{-105}{-128}{-128}{-103}{-106}{-57}{-21}{-103}{-99}{-57}{-21}{-103}{-93}{-128}{-128}{-103}{-84}{-38}{15}{-103}{-89}{-38}{15}{-103}{-93}{-128}{-128}{-103}{-75}{-38}{9}{-103}{-99}{-38}{9}{-103}{-95}{-38}{-128}{-103}{-93}{-38}{1}{-103}{-89}{-128}{1}{-103}{-84}{-128}{-128}{-103}{-1}
   2 .{-68}{-38}{-8}{-103}{-84}{-38}{-8}{-103}{-81}{-61}{-48}{-103}{-84}{-68}{-38}{-28}{-128}{-128}{-128}{-28}{-93}{-84}{-38}{-78}{-93}{-84}{-32}{-78}{-95}{-61}{-21}{-78}{-99}{-89}{-32}{-78}{-99}{-84}{-21}{-78}{-81}{-99}{-8}{-78}{-95}{-84}{-21}{-78}{-95}{-68}{-32}{-78}{-93}{-68}{-38}{-78}{-89}{-48}{-8}{-79}{-128}{-48}{-8}{-126}{-89}{-48}{-8}{-79}{-128}{-128}{-128}{-78}{-93}{-84}{-38}{-78}{-93}{-84}{-32}{-78}{-95}{-84}{-21}{-78}{-99}{-84}{-57}{-78}{-99}{-81}{15}{-78}{-93}{-84}{-21}{-78}{-1}
   3 .{-89}{-75}{9}{-78}{-93}{-48}{9}{-116}{-95}{-48}{-128}{-116}{-93}{-81}{-8}{-103}{-93}{-75}{-8}{-103}{-89}{-81}{-8}{-78}{-84}{-68}{-38}{-28}{-128}{-128}{-128}{-28}{-128}{-57}{-38}{-78}{-84}{-128}{-38}{-103}{-89}{-128}{-38}{-103}{-93}{-68}{-128}{-103}{-99}{-68}{-128}{-103}{-95}{-128}{-128}{-103}{-61}{-48}{-95}{-103}{-61}{-48}{-102}{-103}{-99}{-128}{-128}{-103}{-68}{-57}{-99}{-103}{-68}{-57}{-106}{-103}{-105}{-128}{-128}{-103}{-106}{-57}{-21}{-103}{-99}{-57}{-21}{-103}{-93}{-128}{-128}{-103}{-84}{-38}{15}{-103}{-1}
   4 .{-89}{-38}{15}{-103}{-93}{-128}{-128}{-103}{-75}{-38}{9}{-103}{-99}{-38}{9}{-103}{-95}{-38}{-128}{-103}{-93}{-128}{1}{-103}{-89}{-128}{1}{-103}{-84}{-128}{-128}{-103}{-68}{-38}{-8}{-103}{-84}{-38}{-8}{-103}{-81}{-61}{-48}{-103}{-84}{-57}{-38}{-103}{-93}{-57}{-38}{-103}{-99}{-57}{-38}{-103}{-106}{-57}{-38}{-103}{-99}{-128}{-128}{-103}{-93}{-128}{-128}{-103}{-84}{-48}{-21}{-103}{-93}{-48}{-21}{-103}{-97}{-128}{-128}{-103}{-99}{-81}{-8}{-28}{-128}{-128}{-128}{-28}{-89}{-68}{-8}{-78}{-89}{-68}{9}{-78}{-1}
   5 .{-93}{-86}{15}{-78}{-95}{-75}!{-78}{-95}{-75}{-48}{-103}{-95}{-75}{-38}{-103}{-95}{-78}{-27}{-103}{-95}{-78}{-21}{-103}{-93}{-78}{-8}{-78}{-93}{-78}{15}{-78}{-95}{-78}{-128}{-116}{-99}{-78}{-128}{-116}{-93}{-86}{-21}{-78}{-89}{-61}!{-79}{-128}{-61}!{-126}{-89}{-61}!{-79}{-128}{-128}{-128}{-78}{-95}{-75}{-48}{-28}{-99}{-84}{-57}{-78}{-102}{-84}{-61}{-78}{-102}{-95}{-48}{-78}{-102}{-84}{-21}{-78}{-99}{-78}{-27}{-78}{-99}{-78}{-128}{-103}{-128}{-78}{-8}{-103}{-102}{-78}{-128}{-116}{-1}
   6 .{-104}{-78}{-128}{-116}{-99}{-57}{-38}{-78}{-95}{-75}{9}{-79}{-128}{-75}{9}{-126}{-95}{-75}{9}{-79}{-128}{-128}{-128}{-78}{-93}{-57}{-38}{-78}{-93}{-84}{-32}{-78}{-95}{-84}{-21}{-78}{-99}{-84}{-38}{-78}{-99}{-84}{-21}{-78}{-99}{-84}{-21}{-78}{-84}{-95}{-48}{-103}{-81}{-95}{-48}{-103}{-93}{-84}{-57}{-78}{-93}{-75}{9}{-78}{-89}{-81}{-8}{-28}{-128}{-128}{-128}{-28}{-93}{-84}{-38}{-78}{-93}{-84}{-32}{-78}{-95}{-61}{-21}{-78}{-99}{-84}{-57}{-78}{-99}{-68}{15}{-78}{-93}{-75}{-21}{-78}{-1}
   7 .{-89}{-75}{9}{-103}{-93}{-48}{9}{-116}{-95}{-48}{9}{-116}{-93}{-81}{-8}{-103}{-93}{-75}{-8}{-103}{-89}{-81}{-8}{-78}{-84}{-68}{-38}{-28}{-128}{-128}{-128}{-28}{-128}{-57}{-38}{-78}{-84}{-128}{-38}{-103}{-89}{-128}{-38}{-103}{-93}{-68}{-128}{-103}{-99}{-68}{-128}{-103}{-95}{-128}{-128}{-103}{-75}{-61}{-95}{-103}{-75}{-61}{-102}{-103}{-99}{-128}{-128}{-103}{-68}{-57}{-99}{-103}{-68}{-57}{-106}{-103}{-105}{-128}{-128}{-103}{-106}{-57}{-21}{-103}{-99}{-57}{-21}{-103}{-93}{-128}{-128}{-103}{-84}{-38}{15}{-103}{-1}
   8 .{-89}{-38}{15}{-103}{-93}{-38}{-128}{-103}{-38}{-75}{9}{-103}{-38}{-99}{9}{-103}{-38}{-95}{-128}{-103}{-38}{-93}{1}{-103}{-89}{-128}{1}{-103}{-84}{-128}{-128}{-103}{-68}{-38}{-8}{-103}{-84}{-38}{-8}{-103}{-81}{-61}{-48}{-103}{-84}{-57}{-38}{-126}{-84}{-128}{-38}{-28}{-128}{-128}{-128}{-28}{-1}8901234567890123456789012345678901234567
 100 clear ;T=1;BC=rnd ((3)-1)+rnd (32)mul 8;FC=BC+4+rnd (32)mul 8
 101 CY=0;print "JESU JOY OF MAN'S DESIRING";print ;print " BY JOHANN SEBASTIAN BACH ";print 
 102 print " ARRANGED BY GEORGE MOSES "
 105 NT=0;&(16)=49;for A=-24574to -23160step 101
 106 &(21)=10;&(22)=136
 110 for C=Ato A+92step 4;&(17)=%(C)div 256+127;&(18)=%(C+1)div 256+127;&(19)=%(C+2)div 256+127;for D=1to (%(C+3)div 256+127)mul T;next D
 130 if C>-23818goto 150
 136 if C=-24457&(20)=129
 137 if C=-24348&(20)=0
 138 if C=-24187&(20)=129
 139 if C=-23940&(20)=0
 140 next C;next A
 150 &(21)=0;&(22)=0;&(16)=0;&(17)=0;&(18)=0;&(19)=0
 160 for M=1to 2000;next M;goto 100
:return ;clear ;NT=0;goto 100